'==================================================================================================
'	Author		David Segura
'	URL			http://winpeguy.com/
'	Source		http://winpe.codeplex.com/
'	Version		20130910
'==================================================================================================
'	Purpose:
'	(Unreleased) Image and Backup Section
'==================================================================================================
'	File Locations in Windows:
'	%DeployRoot%\Boot\+WinPE\Menu\Scripts\ImageandBackup.vbs
'==================================================================================================
'	File Location in WinPE:
'	X:\Menu\Scripts\ImageandBackup.vbs
'==================================================================================================
'	Configuration:
'	None.  Editing this file is not recommended
'==================================================================================================
'	Change Log:
'	20130910	Codeplex Beta
'==================================================================================================
Sub subBackupDrive
	MsgBox "Automated Backup is not currently enabled in this release" & vbCrLf & "" & vbCrLf & _
	"You can use DISM /Capture-Image from the command line to backup this computer",64,MsgBoxTitleShort & "Backup Drive"

	strRootDirectory = Left(strCurrentDirectory,3)
	objShell.CurrentDirectory = strRootDirectory
	objShell.Run "%ComSpec% /T:1F /K Title WinPE - Command Prompt" & "&&" & "dism /Capture-Image /?", 1, False
	objShell.CurrentDirectory = strCurrentDirectory
End Sub

Sub subRestoreDrive
	MsgBox "Automated Restore is not currently enabled in this release" & vbCrLf & "" & vbCrLf & _
	"You can use DISM /Apply-Image from the command line to restore an image",64,MsgBoxTitleShort & "Restore Drive"

	strRootDirectory = Left(strCurrentDirectory,3)
	objShell.CurrentDirectory = strRootDirectory
	objShell.Run "%ComSpec% /T:1F /K Title WinPE - Command Prompt" & "&&" & "dism /Apply-Image /?", 1, False
	objShell.CurrentDirectory = strCurrentDirectory
End Sub

Sub subOfflineUSMT
	MsgBox "Coming Soon" & vbCrLf & "" & vbCrLf & _
	"This feature is not currently enabled in this release",16,MsgBoxTitleShort & "Offline USMT"
End Sub
'==================================================================================================